home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vegask1a / newgamed.frm < prev    next >
Text File  |  1999-02-15  |  3KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form newgamedollars 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   1845
  7.    ClientLeft      =   45
  8.    ClientTop       =   45
  9.    ClientWidth     =   4770
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Icon            =   "newgamedollars.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Moveable        =   0   'False
  17.    ScaleHeight     =   1845
  18.    ScaleWidth      =   4770
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin VB.PictureBox Picture1 
  22.       AutoSize        =   -1  'True
  23.       Height          =   495
  24.       Left            =   120
  25.       ScaleHeight     =   435
  26.       ScaleWidth      =   4515
  27.       TabIndex        =   2
  28.       Top             =   1320
  29.       Width           =   4575
  30.    End
  31.    Begin VB.Timer Timer1 
  32.       Interval        =   7000
  33.       Left            =   120
  34.       Top             =   1335
  35.    End
  36.    Begin VB.Image Image2 
  37.       Height          =   1770
  38.       Left            =   15
  39.       Top             =   90
  40.       Width           =   4740
  41.    End
  42.    Begin VB.Image Image1 
  43.       Height          =   480
  44.       Left            =   240
  45.       Picture         =   "newgamedollars.frx":000C
  46.       Top             =   570
  47.       Width           =   480
  48.    End
  49.    Begin VB.Label Label2 
  50.       Alignment       =   2  'Center
  51.       BackColor       =   &H00FFFFFF&
  52.       BorderStyle     =   1  'Fixed Single
  53.       Caption         =   "Don't forget to save your game (credits and marks will be saved)."
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   9.75
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   600
  64.       Left            =   1005
  65.       TabIndex        =   1
  66.       Top             =   540
  67.       Width           =   3645
  68.    End
  69.    Begin VB.Label Label1 
  70.       Alignment       =   2  'Center
  71.       BackColor       =   &H00000000&
  72.       Caption         =   "You have 50 credits to start with. "
  73.       BeginProperty Font 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   13.5
  76.          Charset         =   0
  77.          Weight          =   700
  78.          Underline       =   0   'False
  79.          Italic          =   -1  'True
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       ForeColor       =   &H00FFFFFF&
  83.       Height          =   375
  84.       Left            =   75
  85.       TabIndex        =   0
  86.       Top             =   30
  87.       Width           =   4815
  88.    End
  89. End
  90. Attribute VB_Name = "newgamedollars"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Private Sub form_load()
  96. Picture1.Picture = LoadResPicture("600coins", bitmap)
  97. End Sub
  98.  
  99. Private Sub Image2_Click()
  100. Unload Me
  101. dollars = 50
  102. board.Show
  103. End Sub
  104.  
  105. Private Sub Timer1_Timer()
  106. Unload Me
  107. dollars = 50
  108. board.Show
  109. End Sub
  110.